Dim objFso, objShell, objEnv
Dim strCommand, strComputer, strPath

set objFso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
set objEnv = objShell.Environment("PROCESS")
objEnv("SEE_MASK_NOZONECHECKS") = 1

strPath = objFso.GetParentFolderName(Wscript.ScriptFullName)

'Launch HTA
strCommand = "mshta.exe """ & strpath & "\prompt.hta"""
objShell.Run strCommand, 0, -1